Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Cls
ViewWindow 1,60,0,1,64,0
0A~Z
1Z
1V
Plot 1,10
Plot 59,10
Green Line
Plot 1,52
Plot 59,52
Green Line
Text 1,40,"-PONG PRO-"
Text 7,18,"-BY:MARCUS LUNDSTROEM-"
Text 57,9,"SPEED:"
Text 57,38,V
1A~Z
10B
1D
30G~H
Text 57,58,"TIME:"
Text 30,5,"I"
Text 30,120,"I"
While Z=1
PlotOn A,B
PlotOff A,B
A+CA
B+DB
B>49-VD
B<14VD
S+0.25S
Frac S=0Text 57,85," "
Frac S=0Text 57,85,S
If Getkey=28
Then V+1V
V>5V-1V
C<0-VC
C>0VC
D>0VD
D<0-VD
Text 57,38," "
Text 57,38,V
IfEnd
If Getkey=37
Then V-1V
V<1V+1V
C<0-VC
C>0VC
D>0VD
D<0-VD
Text 57,38," "
Text 57,38,V
IfEnd
If Getkey=72
Then G-7G
G<12G+7G
Text G,5,"I"
Text G+7,5," "
IfEnd
If Getkey=71
Then G+7G
G>47G-7G
Text G,5,"I"
Text G-7,5," "
IfEnd
If Getkey=32
Then H-7H
H<12H+7H
Text H,120,"I"
Text H+7,120," "
IfEnd
If Getkey=31
Then H+7H
H>50H-7H
Text H,120,"I"
Text H-7,120," "
IfEnd
If A<6
Then B64-GB64-G+7VC
IfEnd
If A>53
Then B64-HB64-H+7-VC
IfEnd
A>652Z
A<-23Z
WhileEnd
Z=2Text 30,45,"LEFT WINS
Z=3Text 30,45,"RIGHT WINS"